﻿Imports System.Data.OleDb

Public Class BaseDatos

    Private _StrConexion As String
    Private _Conexion As OleDbConnection
    Private _Instruccion As OleDbCommand
    Private _Lector As OleDbDataReader

    Public Sub New()
        _StrConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="""
        _Conexion = New OleDbConnection(_StrConexion)
    End Sub

    Public Sub open()
        _Conexion.Open()
    End Sub

    Public Sub close()
        _Conexion.Close()
    End Sub

    Public Function Insertar(ByVal SQL As String) As Integer
        'TODO
        Return 1
    End Function
End Class
